home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / C and C++ / Compilers⁄Interps / kevoSource / iconDef.c < prev    next >
C/C++ Source or Header  |  1993-02-14  |  4KB  |  134 lines
  1. /* Kevo Interactive Compiler kernel             */
  2. /* (c) Antero Taivalsaari 1991-1992             */
  3. /* Some parts (c) Antero Taivalsaari 1986-1988     */
  4. /* iconDef.c: Definitions for icon-based browser*/
  5.  
  6. #include "iconDef.h"
  7.  
  8. /*---------------------------------------------------------------------------*/
  9. /* Custom list definition procedure */
  10.  
  11. /* This procedure replaces the standard list definition procedure contained */
  12. /* in the system file (LDEF resource 0). */
  13.  
  14. /*
  15.     These definitions allow our browser to display the properties in browser 
  16.     windows as icons instead of mere text. The underlying representation of 
  17.     list cells has not been changed, and cells still contain the visibility 
  18.     info in the first position, and the object kind in the second position 
  19.     (e.g., ^M = public method). Indexed slots do not contain visibility info
  20.     at all, but the first bytes contain the index instead (e.g. <12>).
  21. */
  22.  
  23. pascal void main(lMessage, lSelect, lRect, lCell, lDataOffset, lDataLen, lHandle)
  24. short lMessage;
  25. Boolean lSelect;
  26. Rect lRect;
  27. Cell lCell;
  28. short lDataOffset;
  29. short lDataLen;
  30. ListHandle lHandle;
  31. {
  32.      Rect iconRect;
  33.      DataHandle dataCells;
  34.      char* thisData;
  35.      char visibility;
  36.      char objectKind;
  37.      Handle thisIcon;
  38.  
  39.     switch (lMessage) {
  40.         case lInitMsg:
  41.         case lCloseMsg:
  42.             /* Nothing has to be done when list manager is initialized or finalized */
  43.             break;
  44.  
  45.         case lDrawMsg:
  46.         case lHiliteMsg: {
  47.  
  48.             /* Icon selection: */
  49.             /* First, get the address of the data area */
  50.             dataCells = (*lHandle)->cells;
  51.  
  52.             /* Get also the contents of the current cell using given offset */
  53.             thisData = *dataCells + lDataOffset;
  54.             
  55.             /* The first character in the cell defines visibility */
  56.             visibility = *thisData;
  57.     
  58.             /* The second character defines the kind of the object */
  59.             objectKind = *(thisData+1);
  60.             
  61.             /* Choose the appropriate icon from resource file */
  62.             switch (visibility) {
  63.                 case '^': /* The first character is '^' (public) */
  64.                     switch (objectKind) {
  65.                         case 'R': thisIcon = GetResource('ICN#', PUBLICREFICON); break;
  66.                         case 'V': thisIcon = GetResource('ICN#', PUBLICVARICON); break;
  67.                         case 'C': thisIcon = GetResource('ICN#', PUBLICCONSTICON); break;
  68.                         case 'M': thisIcon = GetResource('ICN#', PUBLICMETHODICON); break;
  69.                         case 'P': thisIcon = GetResource('ICN#', PUBLICPRIMICON); break;
  70.                         default : thisIcon = 0; break;
  71.                     }
  72.                     break;
  73.                     
  74.                 case '_':    /* The first character is '_' (hidden) */
  75.                     switch (objectKind) {
  76.                         case 'R': thisIcon = GetResource('ICN#', PRIVATEREFICON); break;
  77.                         case 'V': thisIcon = GetResource('ICN#', PRIVATEVARICON); break;
  78.                         case 'C': thisIcon = GetResource('ICN#', PRIVATECONSTICON); break;
  79.                         case 'M': thisIcon = GetResource('ICN#', PRIVATEMETHODICON); break;
  80.                         case 'P': thisIcon = GetResource('ICN#', PRIVATEPRIMICON); break;
  81.                         default : thisIcon = 0; break;
  82.                     }
  83.                     break;
  84.                 
  85.                 case '<':     /* The first character is '<' (indexed slot) */
  86.                     thisIcon = GetResource('ICN#', ARRAYICON); 
  87.                     break;
  88.                 
  89.                 default: 
  90.                     thisIcon = 0;
  91.                     break;
  92.             }
  93.  
  94.               /* Blank the whole cell before drawing anything */
  95.             EraseRect(&lRect);
  96.  
  97.             /* If the list is uninitialized or empty, don't draw anything */
  98.             if (!thisIcon) return;
  99.  
  100.              /* Define a rectangle to which the icon will be drawn */
  101.              SetRect(&iconRect, lRect.left+1, lRect.top+1, lRect.left+33, lRect.top+33);
  102.  
  103.              /* Plot the icon */
  104.             PlotIcon(&iconRect, thisIcon);
  105.  
  106.             /* Get the address of the data area again */
  107.             /* (resource loading may have moved memory) */
  108.             dataCells = (*lHandle)->cells;
  109.             thisData = *dataCells + lDataOffset;
  110.             
  111.             /* Set the cursor for text drawing */
  112.             MoveTo(lRect.left + 20, lRect.top + 14);
  113.             
  114.             /* Change text face */
  115.             /* If data is long and we are in multi-column mode, condense text */
  116.             if (lDataLen >= 20 && ((*lHandle)->dataBounds).right > 1) TextFace(condense);
  117.             else TextFace(normal);
  118.             
  119.             /* Hidden property names are printed in italics */
  120.             if (visibility == '_') TextFace(italic);
  121.  
  122.             /* Unless slot is indexed, skip the visibility and objectKind data */
  123.             if (visibility != '<') 
  124.                  DrawText(thisData, 3, lDataLen-3);
  125.             else DrawText(thisData, 0, lDataLen);
  126.  
  127.             /* Cell is selected: invert the contents */
  128.             if (lSelect) InvertRect(&lRect);
  129.             break;
  130.         }
  131.     }
  132. }
  133.  
  134.